home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Apple II / Apple II Systems / IIGS System 3.1 / SYSTEM / DRIVERS / LASERPREP.txt < prev    next >
Encoding:
Text File  |  1987-02-20  |  27.4 KB  |  477 lines
  1. systemdict /currentpacking known{currentpacking true setpacking}if
  2. /LW{save statusdict /product get(LaserWriter)anchorsearch
  3. exch pop{length 0 eq{1}{2}ifelse}{0}ifelse exch restore}bind def
  4. /LW+{LW 2 eq}bind def
  5. /ok{systemdict /statusdict known dup{LW 0 gt and}if}bind def
  6. ok{statusdict begin 9 sccinteractive 3 ne exch 0 ne or{9 0 3 setsccinteractive}if end}if
  7. /md 250 dict def md begin
  8. /av 49 def
  9. /T true def
  10. /F false def
  11. /ci 0 def
  12. /ml 0 def
  13. /al 0 def
  14. /tg 0 def
  15. /sb 500 string def
  16. /mtx matrix def
  17. /s75 75 string def
  18. /s8 8 string def
  19. /s1 ( ) def
  20. /pxs 1 def
  21. /pys 1 def
  22. 1 0 mtx defaultmatrix dtransform exch atan /pa exch def
  23. /nlw .24 def
  24. /ppr [-32 -29.52 762 582.48] def
  25. /pgs 1320 def
  26. /por true def
  27. /xb 500 array def
  28. /so true def
  29. /fillflag false def
  30. /pnm 1 def
  31. /fmv true def
  32. /sfl false def
  33. /ma 0 def
  34. /fkb true def
  35. /fg (Rvd\001\001\000\000\177) def
  36. /bdf{bind def}bind def
  37. /xdf{exch def}bdf
  38. /xl{neg exch neg translate}bdf
  39. /fp{pnsh 0 ne pnsv 0 ne and}bdf
  40. /vrb[
  41. {fp{gsave 1 setlinewidth pnsh pnsv scale stroke grestore}if newpath}bind
  42. /eofill load
  43. dup
  44. /newpath load
  45. 2 index
  46. dup
  47. {clip newpath}bind
  48. {}bind
  49. dup
  50. 2 copy
  51. ]def
  52. currentscreen /spf xdf /rot xdf /freq xdf
  53. /doop{vrb exch get exec}bdf
  54. /psu{/pgs xdf 2 index .72 mul exch div /pys xdf div .72 mul /pxs xdf ppr astore pop /por xdf sn and /so xdf}bdf
  55. /txpose{userdict /note known pgs 1680 eq 1 index and{legal}if
  56. pgs 1212 eq{dup{note}if 54 32.4 translate}if pgs 1403 eq userdict /a4small known and{a4small}if
  57. pgs 1320 eq and{note}if pxs pys scale ppr aload pop por{pop exch neg exch translate pop}
  58. {translate pop pop 270 rotate}ifelse 1 -1 scale
  59. statusdict begin waittimeout 300 lt{/waittimeout 300 def}if end}bdf
  60. /fr{3 index 3 index xl ppr aload pop 3 -1 roll 2 mul add 3 1 roll exch 2 mul add
  61. 6 2 roll 3 -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll div 3 1 roll div exch scale}bdf
  62. /lws{show}bdf
  63. /tv{show pop pop}bdf
  64. /obl{{0.212557 mul}{pop 0}ifelse}bdf
  65. /pw{fg 7 /PreserveWidth kif{pop}{127}ifelse put}bdf
  66. /sfd{ps fg 5 -1 roll get mul 100 div 0 ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf
  67. /fnt{findfont sfd}bdf
  68. /bt{sa 3 1 roll 3 index and put}bdf
  69. /sa(\000\000\000\000\000\000\000\000\000)def
  70. /fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf
  71. /mx1 matrix def
  72. /mx2 matrix def
  73. /mx3 matrix def
  74. /dgf{fg 7 get currentfont}bdf
  75. /gf{}bdf
  76. /bu{currentpoint currentgray currentlinewidth currentlinecap currentlinejoin currentdash exch aload length
  77. fg 5 sfl{1}{0}ifelse put ml al tg ci pnsv pnsh
  78. 2t aload pop 3a aload pop mx2 aload pop mx1 aload pop mtx currentmatrix aload pop
  79. mx3 aload pop ps pm restore /ps xdf mx3 astore pop}bdf
  80. /bn{/pm save def mx3 setmatrix newpath 0 0 moveto ct dup 39 get 0 exch getinterval cvx exec
  81. mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop
  82. 2t astore pop /pnsh xdf /pnsv xdf gw /ci xdf /tg xdf /al xdf /ml xdf
  83. /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap
  84. setlinewidth setgray moveto}bdf
  85. /fc{save vmstatus exch sub 50000 lt
  86. {(%%[|0|]%%)=print flush}if pop restore}bdf
  87. /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  88. /3a [0 0 0] def
  89. /2t 2 array def
  90. /tp{3a astore pop}bdf
  91. /tt{mx2 currentmatrix pop currentpoint 2 copy 2t aload pop qa 2 copy translate 3a aload pop exch dup 0 eq
  92. {pop}{1 eq{-1 1}{1 -1}ifelse scale}ifelse rotate pop neg exch neg exch translate moveto}bdf
  93. /te{mx2 setmatrix}bdf
  94. /dtb{/fkb false def /tg currentgray def /ci 0 def /ml 0 def /al 0 def 3 eq{1 setgray}if}bdf
  95. /tb{3 eq{1 setgray}if pop pop pop}bdf
  96. /dam{ml add /ml xdf dup length sb exch ci exch dup
  97. ci add /ci xdf getinterval copy dup wi pop dup al add /al xdf
  98. currentgray{setgray dup ml mul 3 -1 roll rs}}bdf
  99. /am{pop sa 2 get 0 ne{dup wi pop dup 3 -1 roll rs}{show}ifelse}bdf
  100. /th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale /sfl true def}bdf
  101. /tu{1 1 mx1 itransform scale /sfl false def}bdf
  102. /ts{1 1 mx1 transform scale /sfl true def}bdf
  103. /fz{/ps xdf}bdf
  104. /dfs{dup fs{fs}}bdf
  105. /dfz{dup fz{fz}}bdf
  106. /tm{save exch{dup type dup /arraytype eq exch /packedarraytype eq or
  107. {exec}{dup type /dicttype eq{fkb{setfont fg exch 7 exch put}{pop pop}ifelse}if}ifelse}forall
  108. currentpoint 3 -1 roll restore moveto}bdf
  109. /dkb{counttomark xb exch 0 exch getinterval astore exch pop es}bdf
  110. /kb{}bdf
  111. /dv{dup 0 ne{div}{pop}ifelse}bdf
  112. /es{3 -1 roll dup sa 8 get
  113. sa 1 get 0 ne{/ml ml .2 ps mul sub def}if
  114. ne{fs}{pop}ifelse exch dup 1 eq
  115. {pop /tv al ml gt{/ll load /ml ml al dv def}{{show pop pop}/ml 1 def}ifelse def}{dup 3 eq
  116. {pop /tv al ml gt{/ll load /ml ml al dv def}{ml al sub 0 rmoveto{show pop pop}/ml 1 def}ifelse def}{2 eq
  117. {/tv al ml gt{/ll load /ml ml al dv def}{ml al sub 2 div 0 rmoveto{show pop pop}/ml 1 def}ifelse def}
  118. {/tv /ll load /ml ml al dv def def}ifelse}ifelse}ifelse tm tg setgray}bdf
  119. /pop4{pop pop pop pop}bdf
  120. /it{sfl{mx1 itransform}if}bdf
  121. /gm{exch it moveto}bdf
  122. /lm{dlm exec}bdf
  123. /dlm{{pop currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}}bdf
  124. /fm{statusdict /manualfeed known}bdf
  125. /se{statusdict exch /manualfeed exch put}bdf
  126. /mf{dup /ma exch def 0 gt{fm se /t1 5 st ok ma 1 gt and{/t2 0 st /t3 0 st
  127. statusdict /manualfeedtimeout 3600 put
  128. }if}if}bdf
  129. /jn{ok{statusdict exch /jobname exch put}{pop}ifelse}bdf
  130. /pen{pnm mul /pnsh xdf pnm mul /pnsv xdf pnsh setlinewidth}bdf
  131. /min{2 copy gt{exch}if pop}bdf
  132. /max{2 copy lt{exch}if pop}bdf
  133. /dh{fg 6 1 put array astore exch pop exch pop exch setdash}bdf
  134. /ih[currentdash]def
  135. /rh{fg 6 0 put ih aload pop setdash}bdf
  136. /dl{gsave nlw pys div setlinewidth 0 setgray}bdf
  137. /dlin{exch currentpoint currentlinewidth 2 div dup
  138. translate newpath moveto lineto currentpoint stroke grestore moveto}bdf
  139. /lin{fg 6 get 0 ne{lineto currentpoint 0 doop moveto}
  140. {exch currentpoint /pnlv xdf /pnlh xdf gsave newpath /@1 xdf /@2 xdf fp{pnlh @2 lt{pnlv @1 ge
  141. {pnlh pnlv moveto @2 @1 lineto pnsh 0 rlineto
  142. 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}
  143. {pnlh pnlv moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv rlineto
  144. pnsh neg 0 rlineto pnlh pnlv pnsv add lineto}ifelse}{pnlv @1 gt
  145. {@2 @1 moveto pnsh 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlineto
  146. pnsh neg 0 rlineto @2 @1 pnsv add lineto}{pnlh pnlv moveto pnsh 0 rlineto
  147. 0 pnsv rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlineto
  148. 0 pnsv neg rlineto}ifelse}ifelse
  149. closepath fill}if @2 @1 grestore moveto}ifelse}bdf
  150. /gw{/pnm fg 3 get fg 4 get div def}bdf
  151. /lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf
  152. /barc{/@1 xdf /@2 xdf /@3 xdf /@4 xdf /@5 xdf
  153. /@6 xdf /@7 xdf /@8 xdf gsave
  154. @5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 moveto
  155. @5 @7 sub @6 @8 sub mtx currentmatrix pop scale @1{newpath}if
  156. 0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}if
  157. mtx setmatrix @2 doop grestore}bdf
  158. /ar{dup 0 eq barc}bdf
  159. /ov{0 exch 360 exch true barc}bdf
  160. /rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2 roll exch moveto
  161. 6 -1 roll lineto lineto lineto closepath @t doop moveto}bdf
  162. /mup{dup pnsh 2 div le exch pnsv 2 div le or}bdf
  163. /rr{/@1 xdf 2. div /@2 xdf 2. div /@3 xdf
  164. /@4 xdf /@5 xdf /@6 xdf /@7 xdf
  165. @7 @5 eq @6 @4 eq @2 mup or or{@7 @6 @5 @4 @1 rc}
  166. {@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  167. @5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  168. @1 0 eq{/@2 @2 pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}if
  169. currentpoint newpath
  170. @4 @6 add 2. div @7 moveto
  171. @4 @7 @4 @5 @2 arcto pop4
  172. @4 @5 @6 @5 @2 arcto pop4
  173. @6 @5 @6 @7 @2 arcto pop4
  174. @6 @7 @4 @7 @2 arcto pop4
  175. closepath @1 doop moveto}ifelse}bdf
  176. /pr{gsave newpath /pl{exch moveto /pl{exch lineto}def}def}bdf
  177. /pl{exch lineto}bdf
  178. /ep{dup 0 eq{{moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforall
  179. pop grestore}{doop grestore}ifelse currentpoint newpath moveto}bdf
  180. /gr{64. div setgray}bdf
  181. /pat{s8 copy pop 9.375 pa por not{90 add}if{1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and}setscreen gr}bdf
  182. /sg{freq rot /spf load setscreen gr}bdf
  183. /dc{transform round .5 sub exch round .5 sub exch itransform}bdf
  184. /sn{userdict /smooth4 known}bdf
  185. /x8{3 bitshift}bdf
  186. /x4{2 bitshift}bdf
  187. /d4{-2 bitshift}bdf
  188. /d8{-3 bitshift}bdf
  189. /xf{.12 mul exch .125 mul}bdf
  190. /rb{31 add -5 bitshift 2 bitshift}bdf
  191. /db{save 10 1 roll
  192. /@1 xdf /@2 xdf /@3 xdf /@4 xdf /@5 xdf
  193. /@6 @5 @3 4 add mul def
  194. xf exch dc translate
  195. /@7 xdf /@8 xdf
  196. @8 @7 xf 0.96 mul exch scale
  197. 0 0 1 1 10 rc clip
  198. @1 0 eq @1 4 eq or{1 setgray 0 1 1 idtransform exch pop add 0 1 1 2 rc}if
  199. @1 3 eq @1 7 eq or{1}{0}ifelse setgray
  200. /@9 @1 0 eq @1 1 eq @1 3 eq or or def
  201. /@10 @4 x4 def /@11 @3 x4 def
  202. /@12 @10 rb def /@13 @12 @11 mul def
  203. /@15 1 1 dtransform round cvi /@14 exch def round cvi def
  204. /@16 @15 rb def /@17 @16 @14 mul def
  205. sn{
  206. @17 60000 lt{
  207. @16 x8 @14 @9 [@15 0 0 @14 0 0]{
  208. @17 string @13 string
  209. currentfile @6 string readhexstring pop
  210. 1 index @4 @3 @5 @12 @2 smooth4
  211. @10 @11 @12 dup string 5 index @15 @14 @16 dup string stretch
  212. }imagemask
  213. }{
  214. @12 x8 @11 @9 [@10 0 0 @11 0 0]{
  215. @13 string
  216. currentfile @6 string readhexstring pop
  217. 1 index @4 @3 @5 @12 @2 smooth4
  218. }imagemask
  219. }ifelse}
  220. {@5 3 bitshift @3 4 add @9 [@4 0 0 @3 0 2]
  221. {currentfile @6 string readhexstring pop}imagemask
  222. }ifelse
  223. restore
  224. }bdf
  225. /wd 16 dict def
  226. /mfont 14 dict def
  227. /mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end}bdf
  228. /cf{{1 index /FID ne{tmp 3 1 roll put}{pop pop}ifelse}forall}bdf
  229. /mv{fmv{tmp /Encoding macvec put}if}bdf
  230. /du{FontDirectory 2 index known{pop pop false}
  231. {findfont dup length dict /tmp exch def cf true}ifelse}bdf
  232. /nf{{tmp definefont pop}if}bdf
  233. /rf{/fmv exch def du dup{mv}if nf}bdf
  234. /fe{dup{tmp /Encoding 2 copy get dup length array copy put}if}bdf
  235. /ce{tmp /Encoding get 3 1 roll put}bdf
  236. /xs{JJ serverdict begin exitserver}bdf
  237. /mywidth{bitwidth 3 lt{3}{bitwidth}ifelse}bdf
  238. /bmbc{exch begin wd begin
  239. /cr xdf
  240. save
  241. CharTable cr 6 mul 6 getinterval{}forall
  242. /bitheight xdf /bitwidth xdf
  243. .96 div /width xdf
  244. Gkernmax add /XOffset xdf Gdescent add /YOffset xdf /rowbytes xdf
  245. rowbytes 255 eq{0 0 0 0 0 0 setcachedevice}
  246. {Gnormsize dup scale
  247. width 0 XOffset YOffset bitwidth XOffset add bitheight YOffset add
  248. setcachedevice
  249. rowbytes 0 ne{
  250. XOffset YOffset translate newpath 0 0 moveto
  251. bitwidth bitheight scale
  252. sn{
  253. /xSmt bitwidth x4 def
  254. /ySmt bitheight x4 def
  255. /rSmt xSmt rb def
  256. rSmt x8 ySmt true
  257. [xSmt 0 0 ySmt neg 0 ySmt]
  258. {rSmt ySmt mul string CharData cr get
  259. 1 index mywidth bitheight rowbytes rSmt so smooth4}
  260. }{rowbytes 3 bitshift bitheight 4 add true
  261. [bitwidth 0 0 bitheight neg 0 bitheight 2 add]
  262. {CharData cr get}
  263. }ifelse
  264. imagemask
  265. }if
  266. }ifelse
  267. restore
  268. end end
  269. }bdf
  270. /bb{.96 exch div /Gnormsize mdf 2 index
  271. /Gkernmax mdf 1 index /Gdescent mdf
  272. 3 index div 4 1 roll
  273. 2 index div 1. 5 2 roll
  274. exch div 4 1 roll
  275. 4 array astore /FontBBox mdf
  276. }bdf
  277. /cdf{mfont /CharData get 3 1 roll put}bdf
  278. /bf{
  279. mfont begin
  280. /FontType 3 def
  281. /FontMatrix [1 0 0 1 0 0] def
  282. /Encoding macvec def
  283. /BuildChar /bmbc load def
  284. end
  285. mfont definefont pop
  286. }bdf
  287. /wi LW+{/stringwidth load}
  288. {{gsave 0 0 0 0 0 0 0 0 moveto lineto lineto lineto closepath clip stringwidth grestore}bind}ifelse def
  289. /aps{0 get 124 eq}bdf
  290. /xc{s75 cvs dup}bdf
  291. /xp{put cvn}bdf
  292. /scs{xc 3 67 put dup 0 95 xp}bdf
  293. /sos{xc 3 79 xp}bdf
  294. /sbs{xc 1 66 xp}bdf
  295. /sis{xc 2 73 xp}bdf
  296. /sob{xc 2 79 xp}bdf
  297. /sss{xc 4 83 xp}bdf
  298. /dd{exch 1 index add 3 1 roll add exch}bdf
  299. /smc{moveto dup lws}bdf
  300. /kwn{dup FontDirectory exch known{findfont exch pop}}bdf
  301. /gl{1 currentgray sub setgray}bdf
  302. /mm{/mfont 10 dict def mfont begin
  303. /FontMatrix [1 0 0 1 0 0] def
  304. /FontType 3 def
  305. /Encoding macvec def
  306. /df 4 index findfont def
  307. /FontBBox [0 0 1 1] def
  308. /xda xdf /mbc xdf
  309. /BuildChar{wd begin /cr xdf /fd xdf /cs s1 dup 0 cr put def fd /mbc get exec end}def
  310. exec end mfont definefont}bdf
  311. /ac{dup scs kwn{exch /ofd exch findfont def /tmp ofd maxlength 1 add dict def ofd cf mv
  312. tmp dup dup /StrokeWidth nlw 1000 mul pys div ps div dup 12 lt{pop 12}if put
  313. /PaintType 2 put definefont}ifelse}bdf
  314. /mb{dup sbs kwn{exch{pop}{bbc}{}mm}ifelse sfd}bdf
  315. /mo{dup sos kwn{exch{pop}{boc}{}mm}ifelse sfd}bdf
  316. /ms{dup sss kwn{exch{pop}{bsc}{}mm}ifelse sfd}bdf
  317. /ou{dup sos kwn{exch dup ac pop{scs findfont /df2 xdf}{aoc}{}mm}ifelse sfd}bdf
  318. /su{dup sss kwn{exch dup ac pop{scs findfont /df2 xdf}{asc}{}mm}ifelse sfd}bdf
  319. /ao{/fmv true def ou}bdf /as{/fmv true def su}bdf /vo{/fmv false def ou}bdf /vs{/fmv false def su}bdf
  320. /bbc{/da .03 def fd /df get setfont
  321. gsave cs wi exch da add exch grestore setcharwidth
  322. cs 0 0 smc da 0 smc da da smc 0 da moveto lws}bdf
  323. /boc{/da 1 ps div def fd /df get setfont
  324. gsave cs wi exch da add exch grestore setcharwidth
  325. cs 0 0 smc da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
  326. /bsc{/da 1 ps div def
  327. /ds .05 def /da2 da 2. div def fd /df get setfont
  328. gsave cs wi exch ds add da2 add exch grestore setcharwidth
  329. cs ds da2 add .01 add 0 smc 0 ds da2 sub translate 0 0 smc
  330. da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
  331. /aoc{fd /df get setfont
  332. gsave cs wi grestore setcharwidth
  333. gl cs 0 0 smc fd /df2 get setfont gl 0 0 moveto lws}bdf
  334. /asc{/da .05 def fd /df get setfont
  335. gsave cs wi exch da add exch grestore setcharwidth
  336. cs da .01 add 0 smc 0 da translate gl 0 0 smc gl fd /df2 get setfont 0 0 moveto lws}bdf
  337. /dly{/@t exch st{@t the{exit}if}loop}bdf
  338. /st{1000 mul usertime add dup 2147483647 gt{2147483647 sub}if def}bdf
  339. /the{usertime sub dup 0 lt exch -2147483648 gt and}bdf
  340. /lsf{save FontDirectory{pop = flush}forall
  341. systemdict /filenameforall known
  342. {(fonts/*){dup length 6 sub 6 exch getinterval = flush}s75 filenameforall}if
  343. /* = flush restore}bdf
  344. /6a 6 array def
  345. /2a 2 array def
  346. /3q 3 array def
  347. /qs{3 -1 roll sub exch 3 -1 roll sub exch}bdf
  348. /qa{3 -1 roll add exch 3 -1 roll add exch}bdf
  349. /qm{3 -1 roll 1 index mul 3 1 roll mul}bdf
  350. /qn{6a exch get mul}bdf
  351. /qA .166667 def /qB .833333 def /qC .5 def
  352. /qx{6a astore pop
  353. qA 0 qn qB 2 qn add   qA 1 qn qB 3 qn add
  354. qB 2 qn qA 4 qn add   qB 3 qn qA 5 qn add
  355. qC 2 qn qC 4 qn add   qC 3 qn qC 5 qn add}bdf
  356. /qp{6 copy 12 -2 roll pop pop}bdf
  357. /qc{exch qp qx curveto}bdf
  358. /qi{{exch 4 copy 2a astore aload pop qa .5 qm newpath moveto}{exch 2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}bdf
  359. /qq{{qc 2a aload pop qx curveto}{exch 4 copy qs qa qx curveto}ifelse}bdf
  360. /pt{currentpoint newpath moveto}bdf
  361. /qf{/fillflag true def}bdf
  362. /ec{1 and 0 ne{0 doop}if grestore currentpoint newpath moveto /fillflag false def}bdf
  363. /eu{currentpoint fp{0 ep}{grestore newpath}ifelse moveto /fillflag false def}bdf
  364. /bp{currentpoint newpath 2 copy moveto}bdf
  365. /ef{gsave fillflag{gsave eofill grestore}if}bdf
  366. /sm{dup 0 exch{32 eq{1 add}if}forall}bdf
  367. /ll{3 1 roll exch
  368. sub dup abs .5 lt{pop show}{1 index sm
  369. fg 7 get dup 127 ne{4 1 roll exch pop dv 0 4 -2 roll exch widthshow}
  370. {pop dup 0 eq 3 index 0 le or{pop length div 0 3 -1 roll ashow}
  371. {10 mul exch length add div dup 10 mul 0 32 4 -1 roll 0 6 -1 roll awidthshow
  372. }ifelse}ifelse}ifelse}bdf
  373. /dss{currentfont bu 0 sa 6 get 0 ne{pop 1}{sa 7 get 0 eq{pop 2}if}ifelse sa 1 get 0 ne
  374. /|______Symbol sa 4 get 0 ne{vs}{sa 3 get 0 ne{vo}{fnt}ifelse}ifelse bn fg 7 get currentfont}bdf
  375. /ss{dss pop pop}bdf
  376. /dpf{fg 7 get 8 -1 roll dup setfont}bdf
  377. /pf{setfont}bdf
  378. /mc{0 3 1 roll transform neg exch pop}bdf
  379. /rs{sa 2 get 0 ne{gsave 1 index 0
  380. /UnderlinePosition kif{mc}{ps -10 div}ifelse
  381. /UnderlineThickness kif{mc}{ps 15 div}ifelse
  382. setlinewidth currentpoint 3 -1 roll sub moveto
  383. sa 4 get 0 ne{gsave currentlinewidth 2. div dup rmoveto currentpoint translate 2 copy rlineto
  384. stroke grestore}if sa 3 get sa 4 get or 0 ne 3 1 roll 2 index{gsave gl 2 copy rlineto stroke grestore}if
  385. rlineto{strokepath nlw pys div setlinewidth}if stroke grestore}if tv}bdf
  386. /sgt{2 copy known{get true}{pop pop false}ifelse}bdf
  387. /kif{currentfont dup /FontMatrix get exch /FontInfo sgt{true}{currentfont /df sgt
  388. {dup /FontInfo sgt{3 1 roll /FontMatrix get mtx concatmatrix exch true}{pop pop pop false}
  389. ifelse}{pop pop false}ifelse}ifelse{3 -1 roll sgt{exch true}{pop false}ifelse}{false}ifelse}bdf
  390. /blank /Times-Roman findfont /CharStrings get /space get def
  391. /macvec 256 array def
  392. /NUL /SOH /STX /ETX /EOT /ENQ /ACK /BEL /BS /HT /LF /VT /FF /CR /SO /SI
  393. /DLE /DC1 /DC2 /DC3 /DC4 /NAK /SYN /ETB /CAN /EM /SUB /ESC /FS /GS /RS /US
  394. macvec 0 32 getinterval astore pop
  395. macvec 32 /Times-Roman findfont /Encoding get
  396. 32 96 getinterval putinterval macvec dup 39 /quotesingle put 96 /grave put
  397. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  398. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  399. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  400. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  401. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  402. /registered /copyright /trademark /acute /dieresis /notequal /AE /Oslash
  403. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  404. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  405. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  406. /guillemotright /ellipsis /blank /Agrave /Atilde /Otilde /OE /oe
  407. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  408. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  409. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand /Acircumflex /Ecircumflex /Aacute
  410. /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  411. /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
  412. /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  413. macvec 128 128 getinterval astore pop
  414. /|______Courier /Courier T rf
  415. /|______Symbol /Symbol F rf
  416. /|______Seattle /Helvetica findfont dup length 1 add dict /tmp xdf cf mv
  417. /mxv[/zero /one /two /three /four /five /six /seven /eight /nine /comma /period /dollar /numbersign
  418. /percent /plus /hyphen /E /parenleft /parenright /space]def
  419. tmp /Metrics 21 dict dup begin mxv{600 def}forall end put
  420. tmp begin /FontBBox FontBBox [0 0 0 0] astore def end
  421. tmp definefont pop
  422. /od{(Rvd\001\001\000\000\177) fg copy pop txpose
  423. 1 0 mtx defaultmatrix dtransform exch atan /pa exch def
  424. newpath clippath mark
  425. {transform{itransform moveto}}{transform{itransform lineto}}
  426. {6 -2 roll transform 6 -2 roll transform 6 -2 roll transform
  427. {itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}
  428. {{closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39 0 put
  429. 10 fz 0 fs 2 F /|______Courier fnt}bdf
  430. /cd{}bdf
  431. /op{/sfl false def /pm save def}bdf
  432. /cp{not{userdict /#copies 0 put}if ma 0 gt{{t1 the{exit}if}loop}if{copypage}{showpage}ifelse pm restore}bdf
  433. /px{0 3 1 roll tp tt}bdf
  434. /py{}bdf
  435. /psb{/us save def}bdf
  436. /pse{us restore}bdf
  437. /ct 40 string def
  438. /nc{currentpoint initclip newpath gc{dup type dup /arraytype eq exch /packedarraytype eq or{exec}if}
  439. forall clip newpath moveto}bdf
  440. /kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf
  441. end
  442. LW 1 eq userdict /a4small known not and{/a4small
  443. [[300 72 div 0 0 -300 72 div -120 3381]
  444. 280 3255
  445. {statusdict /jobstate (printing) put 0 setblink
  446. margins
  447. exch 196 add exch 304 add 8 div round cvi frametoroket
  448. statusdict /jobstate (busy) put
  449. 1 setblink}
  450. /framedevice load
  451. 60 45{dup mul exch dup mul add 1.0 exch sub}/setscreen load
  452. {}/settransfer load /initgraphics load /erasepage load]cvx
  453. statusdict begin bind end readonly def}if
  454. systemdict /currentpacking known{setpacking}if
  455. currentfile ok userdict /stretch known not and{eexec}{flushfile}ifelse
  456. 65AA4A713677354B973A18568FC280503CC41B6B93EF08197CF9B804786C66F3D886695F12CD7851878AAC202A10EF606A27EEA3B092C7CBD2364DAC4E59CB7A75BE1F9C3577E27C721433A0A158DE9BFC0F767AA5740EB06613B805377B178B4BA4C41D1C02FBF108A1705699BEDEE47CB87F09E2168112A37556F1BA074D1B50155F9C3FFBC61304BFFAEDF2F7D8DF9BA9C32CF213EEFEBED2C6AE2BE6893EC203EE89F4EA8C9C8E0721FF85A1F3C42311E34CFCC03B0321050AE6E1999072F3C51F8B450D3AE2051DDBD07FBF11CB867F0E79185CBCCD8EA7EAC1E564395F838B9502D36700643B87675BB64504D1498D4F2442E9D2E5862ACFAC1B4987F15D68CB23017186524A26DA756CF9F9A35356440CF114148421B8BA6B80A08F7E06B6195C8E741686D092F33A9D9EA512E02BE29C066BE09E71A41BC80BB3BA52491783CDD48B80BD8F447AFBB6CABAFB42316002DCFCCD055266D2455AD825442A347F2D1355E7D88B770B3874F3DFF58E340EF88D0A0B871349BED4E35F1C2AADED8DB73C2FE38FFF3B3027BFAA005F5B3B46AD8EBE5EA5FC919C6AC5491EF20F006BECE44E4C88EDFF5362BFFC5EABCC08C72C07E81510423EB92C778CE755A7F1C8A83B71C0A61A024DCA73D9BE4ACE7A4722DA1FB1C7FF5E6B1A8DC88F0940AF6284FEF434FCAD47C814DEEB2A366F62177D0212051E1AB60145EDBFF2DECAC7783355F1148260756BCE0B52CB5D656205B63C0E17DB754B0181403343CC5CA34D7F05E249C954CDC2B444D469F1E57A1BDC0ECDD24F05E4C7462FBBF26D9393DA54DAC459C2BE2E43395F7AE075CE60B7E5D4AF0C11270D6E2864F9E81DC056DCCA55FE8A99982B72FB32A426A1BA8D16E4AC78991BBBCE64A83B7C03434A3106ECD1AE93F848BB06F0833A065CC0930B65330B5ABCE6512F6B4B9F60062080BDE64EE6413B8B06A06D50D6AC85523A41774E3B8B05F7E90162186FF271ECBE624285475DF352D540FE7E30C66E03304D19096C933FC41945219F6820C257007007FD314C8814598A67DD30351862495B476390A3410AB96A74EB58C9EF92499372DE0EF8A8E4C6EA819035411667346C30C29663FAF3B741CC833F72A7ACCAFB99209A28C59B89D962D37E7034D18EE6937A1D7C4F52B6EEE385CFD51ECDCF59BB6E93C2E33B4F6450150E37C40019F685F6C5A717AB0BF130152FB2E2FE67590FCFF41D697307665C1D3FCF9EC5C7D1F6FB700B80B4C5DE72B8265F155A802E2B990CF1F2C6A7F2A3476B6180551DA8CA880A95D7C350CF90E13076CE6BC91B49A6DAEFDAD43B2529719113A6A09102DFDF62D57EEBF5FD7B9E43925562EF789F1A3F265B163FCF5AF6BA6D3BD1FBB11421460A8BD53E8D1EAF2ECCF7764435D68C9E159843F7A1C5A0F2AE37686CA9984B219C5F58E342D7794C15D34C556EC31DDC4B720BDD6FBCB29ADE9DE0DACE89AF5FD6E1499FE84DBBC9F47E4BC2AB37A5817750890BDBC7667B7A307C27B7E8B5017286CA1E1B9B2494E51A166348B588AF2FB7855D35BD60D528E6749513668DF15E5F4919907B387611BD84836925889E1A65C6CE8450E3466720E007C5FF001DC9065719F8D04E7EAAA1DFDD8DD85ECD32393A46385A161EA1ACAB1B5C0E3F666BCEB135B696E41D750000000000000000000000000000000000000000000000000000000000000000
  457. 0000000000000000000000000000000000000000000000000000000000000000
  458. 0000000000000000000000000000000000000000000000000000000000000000
  459. 0000000000000000000000000000000000000000000000000000000000000000
  460. 0000000000000000000000000000000000000000000000000000000000000000
  461. 0000000000000000000000000000000000000000000000000000000000000000
  462. 0000000000000000000000000000000000000000000000000000000000000000
  463. 0000000000000000000000000000000000000000000000000000000000000000
  464. cleartomark
  465. currentfile ok userdict /smooth4 known not and{eexec}{flushfile}ifelse
  466. F94E00EE41A71C59E5CAEED1EDBCF23D1DBA1EE99B9BB356492923BD8B1BA83A87CEB0E07377A31FD6241E814681118E17DC7CACE570399506E6E441B871B6043831BD03EFC11DBBD8001EE2FF8CFBD485065D455A2E15AC36F1A84AD8789FA6461199C7CD14CB9FD64D4B06452B7FC0A8FC263F70F1CCB893295D4DE70ADAB771C0F84396FA98C60B11DA02ABA157298DF0A23621853BEF167443A985ADC09BEFFD51CB4D29179E2B34609EF38A49DA61F4BFC256A3DE0732D7D29754A194857B9C9E9971227AA1DD0611FBB10E44E5FF66C062D9C24ED3290529330BC317825E876929582DB0E39B9FC5EFD20CC1D4F94920EB9C534D0DA90DE70D25BC7287319CF28602B3F46633C242CAFC8905E960317E3C2FA20AB8DB06ADBAF292FC7BA2CA14EE65DF28B99CC11666B70AD33E8E1D57D63D4B89ECC615AE5747C1CA752C833D8D6DE54CD4A0350B44310555CE3BD2C615ADD27B634CDB350AF3A432CE78AACD2909A5B586F666CD87919A36DB1CBE86B3CE281DFD01CD7E1B8A18A4B415CECBFF79A5C4390A15EA77D14D6BE12BAB5A8268C3F286D0590060647CABED674443CD258F11415E866AB330A251691B61F2422A61AFE59B6B4FBDCF85ED9BA0F8E483C034089E6877FF5923698D3A0DC0EED6B9CFD32DF0839BC4EA5F6D1FCB6DD0920391E57E84745131D02D100179F4E0A68EC0A5FF6680A6F463D038B04AF63FFA13D743B995A26A743C26D387209023C91DE43DF047A16F328AC9DDC08573B38BE9EA341EA16C78EC32F3A1B36B90D95A50610F4D050EC1C33497F3F3A81A1B4C8BEF0BA84EE2FAA32DC112DAC490AF53E1749C4A0D866CAF7B893E52383B0D38065C333FB122B700D7246F7EE87D942AE3DB5C1DD77E9E76C80CC5AD63D28DFED0E229CE604673F78CD47F258FDF5BF3A3EAEC5C9BC8E482D8DBA9D268A35DA8C095A690679ED2123E8B8F5E4826FA3B199EAA5D482D4B6AA86572E387CECEB7149C8947F41D6339328A748A17F8C4AD3B0555F1E409450BA0C564F1F488BB5096EB003568D4D5EF6489897E27409547D0EE4487D30184793B0F27BD265A64BDB3EA6761569DA955620C612E718677B77D6D81B999C6298877AFE0D1D6F6F358377A8BD2402F669C64B972B3A065EF7DD4BDEFFFE17E63DB8898FA6E69166B710AAD6BA2EA9AF61E4B8C8701638D4D6E4DFFFC192AEF6BC027095C4C72D748979675BA29FAF61E75343E14E61034602E5A79CD2519796ED6A9CC4EDEA46A9B59D4A807E786B5EE46F25B0360BC8E7C12D723122CDEEF247C9776F4C99C8EBED6828AA19744B5ADF0D07D95D98B3072372388D41B0FAB1CCE2775170679575ECDCA13B22A17FE9C6605C3445F58F1A829512DAB6C528F83580C8AA53C35D605F626F5AD0B7FC1EA87D69A835E3F53A1F450FB0AF42A5772F89D92A50D10F15BDBDA409F50C0B8AB93FE8A16D029DD8BB5C480D1466735ED4D9CAF637E5ECD6C2ECB6BF3B3EFBEE7AB936D2C568E3009D156B87CACB1FB3A48A70BC91B2EC35CC9147FFB1A524E2B2F2E4E2C1B12F1C1C63768BB95CD62FEC01CBA79B9FA282DD4DF49990F27FF8EE4E2DDE2F0ACD83BC9D4BE0090192C7A799967EC4DC2D63C0835E22D4C4B366D7FDCF3A05A4B53DF780F986EF25C79B665D5C00EFF7F17C0BB6D544F9D83A7FDAC47D9C5683A656011374253C918FF6EA64749DD971B2300DD5320033E01EC591F6318CCE94CE2B81C04322EC52B624E50643B52391CCD2AB56396A2AD8E2D3CA61B80D9D4CC363B2DF7863526958CDF3497E36648406C317E58EC563E7C26149A2A3C643ADFB39A8DD92974C6D2A2A9D7B71CDF3FEBBF32BB02E7B45CF53AAEAD5E963A4AA4AF9A149A08A4EC303D5F2369977E93F54897EEAD31B06C5845D63F49D65F8E5573962241A57CCD717CE6CA8C784A11192943616EA059B51BC38429E18D0121FCBB6FBD5D909B0D89E616C66DEF6A0F165A7030BD911A1B120468329CBB006C8D37720E531CF31E878CB4AAAC137633675C3D546F5162487AB35F470C042BDEB945E0F2532BF92AA6FD53434440221ECD3533A7AA89900CB19EFE2CD872DF8B7969AF0D3B72BF31DC5DD69CA6460966F61AB17CB507964098DBA3AF122EEC3128A9BAFE1034493F372B36BD1351205E9043A67C544402D8BCE24358C8A5CE33867A00794CF7097D59C88279A11EE9C854E7E7AAE881F9828C569D208F5F33375F59E9A3818CFA38AAD0CBFBA32F9F44A8BB79DE4C40E3886457C16DA4A27953AA1E99472E35F2323F0BAA5E37DC28CBA46FEFB73B190016055ADD4D27615D748499A0E1C4B8C7EC339C1C4D95A813A85918A8D01EEB485DDCDCEA6EA3F2C2A9D85C139CD90CCB352634F9AFE836BCAC0C274E352BA2071B5269D5DE4CCDE3FF990CBA974980C7332AE1545A9C60D5D1459D3AE95C1AC065733AF14FADB440A110DD539563B8D850CD0704C52F3F7CCCB53630D776560CBD22D8FF08F5B354487A171AEC15F5F54DE9CAB668BCAC573E788D92762EF63E76087005F4AC2D02E0CAC173C11BE62ACE5DC4D3374F2F9746C9981E125FF9AB8CAE76D13039E2C54DFD708E028A619EA1ED78E6B46F06DF0D0B74BBEDD8C190C7C0CEBDE8F7A4888CC36575313478DD2CFE392E9BB7B2416955D44B7024A3BA43FBF37293B386D64746D7748895411D243FAEC50638F2AA33337D7FA018ADDAC5835A0DDFAE99AD6299DFB4CA6872C59853E3AC12FC9E3D26629C5B49CF844C87B3C4BFBE3074E3A1CE6984758C20C661084381CD6B4582D84F19C0000B5FC0DCB42B567E396031601C095D7016283EBE5F13CD8A3A374A74DDBBABD36081149F8BC242085F2F7297CC97FD3B8BAD206D8AC9707A39ECCC7963B522E08DA391A1EF12DD4D746DBDDDCC0834F88160CF189A9645567CEC2F023A571AF0DFD15DB85B744C28C000DF53B05F8F210841F6E87A04F20C777B7C0BE6182BE2E90226E5301A12532A745F2FAAA81637CF11B78CD2B99A4D18B862D6C5DBD31793FB16A2D9AAD376D4484D75AA833D0068B1D34DB74E3302480854E3B5484D8A47E39A89A2FA927BC3641EA7F8E004FDE4C2F08D40D99F1ACB47CAF6887629BF6DFE12968D297596D28CE0CF148B12E7DCB49FB94F5ADBD214C3A6CE1E249831BA9EB8A189F2CE1ABE39A7B537253E369A508A2AF2ADB9463F9B56BBBFF31D535FF997F537C6675C196E7ECBD493F652FA7CC6D9C1CA3379BFDB5AF7513C6E834054494296B91A6EE800114363D5D5D0759F41B4DECB653B9DE3E94583579EF549ED5F3FAFB12661ABC0C57A332406517ED3454EDED34B386C60F78DC976266E0EAF54FC245FB0E3EFC8016236436B599C1C97A8C5E0AC8F7836161873C71F01ED9CC25C236420F41FD8277993D3959205912FA0927B59E3DAE7377D82079447D6E41EE5AEC0DFFF79AF8F4ED47F17EE708FEA45877860D56F8CBCE65A061E8E1CA4A5FBAF0E13429A7F0ADB6F178FA449F46CC539BBC0107E3A53B1C362A04B20E6D721E7E6E1E4976A11DDC98C7614D22B53DFBB6DAE533AC9BE882021A735C30DAA4A44AED09F49A390E8CFF59BD9C30667AF21B03EC5CEBD5C2C3AA2769E8D714191A48E7DDF50B13D1560E82EFB65FCE601AE9E8C351FBA1DED80B7351314E7F9F9A784BFE3759B7E322A84E7B51F9DC5F5D9C8050CD79B27C0A4B0DD68A3C27A948AD6858E35B960D2DEA838C479CAEA83B1A912174ACB2100E55E7A14892D7A9B3711FF0B20065C1995B49E1F23464A92DD140642E3A7B1973849E64D1A3CF60000000000000000000000000000000000000000000000000000000000000000
  467. 0000000000000000000000000000000000000000000000000000000000000000
  468. 0000000000000000000000000000000000000000000000000000000000000000
  469. 0000000000000000000000000000000000000000000000000000000000000000
  470. 0000000000000000000000000000000000000000000000000000000000000000
  471. 0000000000000000000000000000000000000000000000000000000000000000
  472. 0000000000000000000000000000000000000000000000000000000000000000
  473. 0000000000000000000000000000000000000000000000000000000000000000
  474. cleartomark
  475. %%EOF
  476.  
  477.